#! /usr/bin/perl
########################################################
#mkugler											   #
#script to create or delete client spec. on networker  #
########################################################

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage; # use POD for Usage
use v5.10;

########  Declarations #######
my %options=(
			base_path=>'/NetWorkerScripte/Clients/client_create',
			clientname=>undef,
			silent=>undef  #silent-switch for remote processing
			
);

GetOptions(
			"clientname=s"=>\$options{clientname},
			"silent"=>\$options{silent}  #silent-switch for remote processing
			
			
);

##input/choice of all necessary parameters

print "Should a client be created or be deleted?\n";
print "1 create\n";
print "2 delete\n";
print "selection: ";
my $select=<>;
print "You selected following: $select";
given ($select){
        when(1) {print "Create is selected\n";}
        when(2) {print "Delete is selected\n";}
        default {print "You are unable to choose wisely!\n You may try again....\n";exit 1;}
}


####  SUBS

sub delete(){
	
	
};